DESCUBRE TU ORDENADOR 

LOS SECRETOS 
DEL MSX 




UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
>s del MSX. Los sonidos del 



KsXLaí 



ción al lenguaje máquina. 

Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 



lendario perpetuo. Modificación Ta- 
bla de colores SCREEN 1 . Rectán- 
gulos en 3-D. Juego de caracteres 
alfabéticos en todos los modos. Jue- 



EL LIBRO QUE ESPERABAS YA 
ESTA A LA VENTA 

ENVIA HOY MISMO EL BOLETIN DE PEDIDO 



Deseo me envíen el libroLos secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden 

de MANHATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n.° Ciudad DP 



Roca ¡ Batlle, 10-12 Bajos -08023 BARCELONA 



Editorial — 



DESDE LA PUYA 



al completo está saboteando en esta 

ahínco. El papel con estas notas va 

derecha de toda la fila, nuestro 
redactor-jefe, Willy Miragall, sorbe 
traguito de su bebida mientras lo es 
enterrando en la arena. ¡Qué calor!, 
insoportable sudar tanto. El sonido 



a. En es 



sa play. 



ir hondo hinchándose lo 



MSX-Club va a salir más I 

dentro del mundo' MSX.f 
chinchen los que dicen qu< 

desvelamos nada más. La sorpresa 
queda asegurada. 

Una gigantesca ola viene a 
mojarnos los pies a la vez que 
interrumpe nuestra conversación. 
¡Qué fría está el agua!. Desde luego 
hay que reconocer que somos únicos. 
Carlos Mesa pretende, en estos 



ben BASIC). En 



ra redaci 



cerrada 

del 1 al 15 de Agosto. Es lo mismo. 
Prometemos compensarlo con un 
número (especial verano) de nuestra 
revista hermana MSX-EXTRA. 
Además, en Septiembre 
MSXse ' ' 



Sumario» 



msxclub 



año IV - N » 43 - Julio, 1988 
Sale el día 1 de cada mes 

P.V.P. 275 Ptas. (Inc. IVA y sobretasa aérea Canarias) 



MONITOR AL DIA 

Las novedades más interesan- 
tes del mundo MSX. 

LINEA DIRECTA 

Respondemos a las consultas 
de nuestros lectores. 

TABLON DE 
ANUNCIOS 

Dos inserciones gratuitas pa- 
ra comprar, vender e inter- 
cambiar hard y soft original. 

ft EL BASIC 
PASO A PASO 

U Música en BASIC (IV). 

2 PROGRAMAS 
13 Peras 
24 Spider 

Q KING LEONARD 

y Mapa de este divertido juego 
' laberíntico. 



1 




1/ EFECTOS SONOROS 

jii Serie de miniprogramas qu< 
* te recomendamos escuches. 



J trucos del programador. 

1Q VIDEO-POKES 

'ÍQ Pokes de vidas infinitas para 
J Zanac, ROMA: La conquista 
del imperio y Phantomas II. 



Director Ejeci 

Redactor Jere:Willy Miragall Redacción: 



msxclub 



-i, >.kr Redacción. Administración y Publicidad: K...i , IVi.lk 

Tel Í'H) 211 •• V. Distribuye: (.MI . S A Pza. di (astilla, í. |S 
Tel. (91)315 0942. Foiocompcaición y Fotomecánica: JORVIC 



va de MANHATTAN TRANSFHR. S 



SOFTWARE p¡ 



itribucióndeSERMA 
zona de Cataluña ha 



según el producto: DISVENT, S.A. (para 
los cartuchos MSX), y HARD MICRO, 
S.A. (para el resto del catálogo). 

Por otra parte, siguiendo una trayectoria 
de cinco años, SERMA cambia de direc- 
ción. Desde 1984 a 1988, hay que reconocer 
que esta importante empresa ha avanzado 
en resultados. Para los 

Francisco IglesiaTl7 ' 
28038. Madrid 
Tel. (91) 433 19 16 



EL EXITO DEL 
VIDE0JUEG0 
FERNANDO MARTIN 
EN FRANCIA 




isas. Aunque por el momento para 
ue en Francia sólo se dispone de 1 
:ra versión, la catalogación dentro d 
as de prestigio como TILT, indica qu 



. Máxima puntuación obtenida tanto 
;ráficos como en animación. Y es que 
iftware español está dando mucho que 
ar más allá de nuestras fronteras. ¡Ya 



MANHATTAN 
TRANSFERENEL 
PROGRAMA 
SABADO CHIP 



Elpas 



programa de Sábado Chip en l¡ 
Cadena Cope. Ello tan sólo fue un pretexti 
para que los usuarios de MSX, a través de 



para trasladar el apartado de en- 
is de MSX-CLUB a este curioso 
ma informático. El resultado es una 



Hay que agradecer también las facilida- 
les prestadas por la simpatiquísima Eva 
)rué, coordinadora del f 



CARA Y CRUZ DE LA MONEDA 



MSX-BOIXOS CLUB 

BADALONA 

(BARCELONA) 



Ni; 



No sé por dónde empezar... No han 
estado nada mal vuestras críticas a IN- 
PUT en estos últimos números. Pero 
tengo la impresión de que estáis dándole 



io 1NPUT y MICROMAN1A, 
apartados a los usuarios de 
os sistemas de 



Saliéndome del tema querría co 



na; y es la aparición del algunos años, hacer 



vedades internacionales, excepruando 
SALAMANDER, USAS, etc.. En este 
nclino por INPUT, más pi- 



minado SABADO 




CONCURSO DE PROGRAMAS 



a su edad. 
" «er envia- 



1. Podrán participar to 
lectores, cualquiera B 

2. Los | 

mente protegíaos en su estucne ai 
plástico, o en disco de 3 1/2 pulga- 
das. En este último caso se remitirá 
al participante un disco virgen en 
el momento de recibir el programa 

3. Todos los programas deberán lle- 
var la carátula adjunta, o bien foto- 
copia de la misma. 

4. Cada lector puede enviar tantos 
programas como desee. 

5. No se aceptarán programas ya pu- 
blicados en otros medios o plagia- 

3. ixjs programas deben seguir las 
normas usuales de programación 
estructurada, utilizando líneas 



7. Todos los prograrr 

cluir las correspondientes uistruc- 
ciones, lista de las variables utitili- 
zadas, aplicaciones posibles de 



gún su calidad y su estructuración. 
). Los programas seleccionados apa- 
recerán publicados en la revista 
MSX-Club de Programas, en la 



premiado. 

11. Las decisiones del jurado serán 

12. Los programas no se devolverán 
salvo que así lo requiera el autor. 

13. El plazo de entrega de los progra- 
septiembre 




Programa ■ 



■ Por José María Jiménez i 



Peras 



10 REM i 
30 REM Ü 
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ST=1 



' OFF 



130 SCREEN 1,0.0 
140 WIDTH 25 
150 R=RND(-TIME> 
160 COLOR 15, 1, 1 
170 GOSUB 2720 
180 RESTORE 
190 VPOKE 8205,!<HFC 
200 VPOKE 8207,!<HF1 
210 VPOKE 8204,!<HA1 
220 VPOKE B206,S<H41 
230 VPOKE 8219.&H1 1 
240 • 



EUCLE1 



250 
260 

270 GOSUB 7B0 
280 X=40: Y=39:SP=1:PE=0 
290 ' 

300 IF ST=11 
310 KT=0:ON ] 
10: INTERVAL C 
320 PUTSPRITE1, (191.7! ,4.2:L0CAT 
E 10,2:PRINTUSING"####";SC 
330 ' 

340 ' Wm BUCLE2 
350 ' 

360 CK=6148+Y*4+X\8:CD=CK+32: VD= 
VPEEK(CD) :VK=VPEEK'CK) 
370 IF VD=32 THEN Y=Y+8:NZ=1 ELS 
E NZ=0 
380 IF Vr 
60 ELSE : 
UB 560 



Has de recoger dieciséis peras en las dieciséis 
cavernas de la cueva. Presta atención al oxígen 
en no coger las peras venenosas disparándoles tr 
o cuatro veces para convertirlas en benignas, y < 
las trampas venenosas. En los momentos difícil 
pulsa la tecla ESC para acabar con tu vida. 



:';120) THEN 



400 IF SP=3 AND ( VD=?70RVD=?0) THE 
N SP=1 

410 IF SP=3 AND VK-32 THEN SP- 




: l IF PE= 1 6 THEN 610 
430 PUT SPRITE 0 . ( X , Y ) , 4 , SP 
440 IF NZ=1 THEN 340 
450 D=STICKÍ0) OR STICK(l) 
460 IF D=l AND VK=104 THEN Y=Y-B 

í = 3:PLAY"V1.0S1íimi ;;i -j^O^-E" 
470 IF D=3 AND SP< : -3 AMD VPEEKtC 
. ) ' : 97 AND VPEEK^CK+DO^S THE 
N IF SP=1 THEN X=X+S ELSE SP=1 
480 IF D=5 AND VD=104 THEN SP=3: 
V=Y+8¡PLAY"V10S10M12L32Q1B" 
490 IF D=7 AND SP< -3 AND VFEEK'C 
K-i><>97 AND VPEEK'CK-r. ■ ■=P THE 
N IF SF-2 THEN Y=x-B ELSE SP=2 
500 IF STRIG<0)ORSTRIG<1> THEN G 
OSUB 3070 

5 IF INKEY*»CHR*<27) THEN TW=0 

? GOTO 340 
530 ' 

II ' *** SUMA PEPA 
550 ' 

560 PE=PE+1 : LOCATE 1 , 1 : PRINT'JSINE 
" ## " ; PE : PL AY " V 1 5L 1 606C " , " V 1 3L 1 60 
3B". "V12L6406FCF" • VPOKE WW. 32: SC 
=SC* 1 0 : LOCATE 0 , 2 : PR I NTUS I NG" 
SCOKE: »#»#" ; SC ; RETURN 
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Programa i 



580 '*** PERA VENENOSA 
590 ' 

INTERVALOFF: VPOKE WW.32:PUTS 
"E0, (X, Y) , 14, 4: PLAY"V15L1605E 
DC04BEC " . " V 1 5L 1 605FD04G A " : V V= 1 : T 
=0:GOTO 2330 
I IF ST=16 THEN 2390 



62W ' 



! BONUS TIEMPO 



650 INTERVAL OFF: LOCATE é 
660 PRINT" I BONUS: I' 
10! PRINT" 



E 6, 1 



RINT" 



' :LOC 



ATE 6, 1 

OCATE 6, 13:PRINT" I |" 
670 FOR I=TW TO 0 STEP-1 : LOCATE 

.:PRINTUSING"###"; I:PLAY"V150 
3L64CF" 

680 LOCATE 14. 12: F;RI NTUSI NG"#### 
J-I).*10:FOR K=l TO 100:NEXT: 

690 PL.AY"S10V15L64O5E6AEGA", "VI 4 
L6406EGAEGA" 

¡> SC=SC+TW*10:LOCATE10,2:PRINT 
USING "####" :5C:3T=ST+1 
-10 FUF. 1 =0 TO 2000: NEXT 
'20 PUT SPRITE 0. (100,-30) . 1.31: 
PUT SPRITE 1, (100.207) . 1.31 

FOR Tíj 30: PRINT: NEXT: GOT 

) 270 



' I>EFUSR=!<H41:U=USR<0) 

f FOR 1=0 TO 20: PRINT: NEXT 

> PRINT":: 0 STA";ST: " OXIG: 



I ON ST GOSUB c 



i), 970, 990. 1000 



¡320 PRINT" SCORE: " 

830 FOR 1=1 TO 20: READ A* 
310 PRINTA*:NEXT 

B50 FOR 1=1 TO 16-ST:IF 16-ST=0 
TRIEN 880 

860 E=IMT (RND ( 1 ) «608 ) +6272: VE=VP 
EEKíE+32) 

870 IF VPEEK(E)=32 AND <VE=9B OR 
VE==97> THEN VFOKE E.120 ELSE 86 

880 NEXT 

3 FOR 1=1 TO ST 
900 E=INT (RND ( 1 ) *608> +6272: VE=VP 



EEK (E+32) 

910 IF VPEEKÍEÍ-32 AND (VE =98 
VE=97> THEN VPOKE E.INTÍRNDÍI 
2) +116 ELSE 900 
920 NEXT 

930 DEFUSR=!<H44:U=USR(0> 
940 RETURN 
950 ' 

960 RESTORE 1030: RETURN 
•970 RESTORE 1240: RETURN 
980 RESTORE 1 450 : RETURN 
990 RESTORE 1660: RETURN 
1000 RESTORE 1870: RETURN 
RESTORE 2080: RETURN 

1030 DATA ' 



i DATA' 
} DATA 1 
) DATA' 
i) DATA' 
J DATA' 
I DATA 
I DATA 
1 DATA 
I DATA 
i DATA 
1 DATA 
! DATA 
> DATA 
) DATA 



1240 ÜATA"aaaaaabaaaaaabaaaaabab 
1250 DATíV'bb a 

1260 DATA "a haaaaaha 




1270 DATA " b abbbbh h h 




1300 DATA'b h ahbbb 
1310 DATA"aa h h 




1320 DATA"aaa babh h 
1330 DATA "a aah h h 
1340 DATA"b h h aaaa 
1350 DATA"a h h b 
1360 DATA"bhbbbabh b h b 

1380 DATA"bh hbaaaa h 
1390 DATA"bh bh abahas 
1400 DATA"bh b h h 
1410 DATA"a aaabhaab h 
1420 ÜATA"b b h h 
1430 DATA"bbbbbbbbbbbbbbbbbbbbbb 

1450 DATA"aaaaaabbbbbbbaabababab 


1540 DATA "a bbbbbhbbbb h abh h 

1550 DATA"b h h h h 

1560 DATA"aa h h bah h 

1570 DATA"b h h h h 

1580 DATA"a h h ah h 

1590 DATA"b ahaaaa bbbb h h 

1600 DATA"a b h haabh 
b 

1610 DATA"b h h h 
1620 DATA "a h aahaaabba h 
1630 DATA"b aa h h ah 
1640 DATA" aababababababab bbbb aba 
1650 ' 

1660 DflTA"ababbbbbaaaaaaaaaaaaba 


bb" 

1460 DATA"ba 

1470 DATA"a bbbhbbhbbbabbbhbbh 
14B0 DATA"b haa h h h h 
1490 DATA"b ha h h h h 
1500 DATA "a h b h h b h h 
1510 DATA"a a b h aaaahaa h h 
1520 DATA"a a ha . h h bh 
1530 DATA"b h h habbh 


1670 DATA"b 
b" 

1680 DATA"b aaahaaaaaaaaaahaaa 

1690 DATA"b h h 
b" 

1700 DATA"b aa h 

1710 DATA"b h 
b" 

1720 DATA"b aaaaahbbbbbbhbbbb 
b" 

1730 DATA"b h h 
b" 

1740 DATA"b h h 
1750 DATA"b aahaaaaaaaaaahaaa 
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236(3 ' 

2370 ' FINAL DEL JUEGO... 

2390 INTERVAL OFF 

2400 A*="T150V15O4L4BG2O5DE8DL8E 
DED4AG4AGAG4D404DEFGAA+": A1*="T1 
50V14O5L4GBDBGBD6CECEL2GA" 
2410 ' 

2420 B*="04L4BG205DE8DL8EDED4D04 
A05DC+DE4D2D04DF05C" : B1*="05L4GB 
DBGBF-G+F+A05E6D06C05BA" 

2440 C*="04L4BG205DLBED4EDED4AG4 
AGGAL2D+L4F+A" : C1*="05L4GBDBGBD6 
CECE04B05F+BG" 

2450 ' 

2460 D*= » L805AG4AGAG404B05EDCD4B 
05D404B05DC4DC04BA4L2G. " ;D1*="05 
L4CECEGBDGDF+EF+GD04GR4" 
2470 VPOKE 8219,!<HFF:PLAY A*, Al* 
: VPOKE B219,?<H61:FLAY B*,B1*:VP0 
KE 8219,8<HB1:PLAY C*,C1*:VP0KE B 
219,S/H41:PLAY D*, DI*: VPOKE 8219, 
SíHFI 

2480 CK=Ó14B+Y*4+X\B: IF YOB7THE 
N FOR K=CK TO 6523 STEP -32: VPOK 
E K, 104: NEXT: FOR Y=Y TO 87 STEP 
— . 3 i PUTSPR I TE0 , (X, Y) ,4,3:NEXT 
2490 FOR 1=6501 TO 6523: VPOKE I, 
32:NEXT 

2500 Y=87:F0R X=X TO 21B BTEP.5: 
PUTSPRITE0, (X, Y) ,4, 1:NEXT 
2510 FOR Q=0 TO 300: NEXT: PUTSPRI 
TE1, (0.200) , 1,4: PUTSPR I TE0 , (10,2 

2520 DEFUSR=SíH41:F=USR(0) 

2530 CLSt COLOR 15, 4, 4: VPOK CC : 04 , 

SíHFI : VPOKEB207, ?<HF4: A=0: FOR 1=65 

00 TO 6912STEP32:F0R0=I TO OhA:V 

POKE O, INT (RND ( 1 ) #2) +97: NEyT: A=A 

+1:NEXT 

2540 FOR I = I-33T06911:VP0K.EI.97: 
NEXT : FOR 1=6869 TO 1+10 : VPOKE I , 1 
2B: NEXT: VPOKE820B. S.HE4: VP0KEB195 
, S<HS4 

2550 LOC ATE6 , 1 4 : PR I NT " ,<"•-,. v^v, 
: ■-.^■■y : LOCATE 1 1 , 1 3 : PR I NT " /"s 

2560 R=l:FOR 1=6144 TO 6966: VPOK 
E I , 97: R=R+1 : IF R=5 THEN 1=1+28: 
R=l 

2570 NEXT 

25B0 DEFUSR=S<H44:U=USR(0) 

2590 FOR X=40 TO 152 STEP4:Vb=VP 

EEK<61B0+Y*4+X\B> : IF VD=32 THEN 

2600 PUTSPR ITE0, ( X , Y) . 15, 1 : FORQQ 
-13 TO 1001; NEXT 




2610 NEXT 
2620 ' 

2630 LDCATE9, 1 1 : PRINTUSING"SCORE 

: ; SC: LOCATEB, 5: PRINT"HAS 

CONSEGUIDO TODAS LAS PERA 

S PARA ALIMENTAR A TU PUEBLO 

ETERNAMENTE" 
2640 A* = " V 1 5S 1 0M500T99O4L8R4R8GE 
DC405E4 . DF4 . E04B05CL404 A05D . EBÜ4 
6. L805D04BAL4G05D. E8G. L8DDE" : B* = 
" 05L4DL8DÜ4BAGF DL4C05E . D8F . L8E04 
B05C04L4A05D. ESG. LSFEF" 
2650 PLAY A*:PL.AY B* 
2660 A*="L805E04B05EC+D04A05D04B 
05C04EABBAB05CDEDE04L4G . BBO'jrj : " : 
PLAYA* 

2670 FOR 1=0 TO 5555: NEXT 
2680 RUN 
2690 ' 

2700 ' ■■■■ SPRITES S< CARACTERE 



2 72i? RESTORE 2810: FOR 1=97*8 TO 
1+23 

27"0 READ A* 

2740 VPOKE I,VAL("SíH"+A*> 
2750 NEXT I 

2760 FOR 1=120*8 TO I+15:READA*: 

VPOKE I.VAL("S<H"+A*> : NEXT I 

2770 FOR 1=104*8 TO 1+7: READA*: V 

POKEI. VAL < "?<H"+A*> : NEXT I 

2780 FOR K=116*8 TO K+3:STEP8:RE 

STORE 2370: FOR I=K TQ 1+7: READA* 

: VF'QKEI , VAL ( "SíH"+A*) : NEXT I : NEXT 

2790 RESTORE 2B80: FOR 1=1 TO 4:E 
*="":FOR J=0 TO 7: READ A*:E*=E*+ 
CHR*(VAL("!,H"+A*) ) : NEXT J:SPRITE 
*(I)=E*.:NEXT I 

2800 RESTORE 2B90:FOR I=128*B TO 
I +7 : RE ADD* : VPOKE I ■ V AL ( " SíH " +D* ) : 
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^ ^^^ Programa 

NEXT 

2B10 DATA FB,0,DF,0,FB,0,DF,0 

2320 DATA FB . FB , FB . '? , DI" , DF . DF , 0 

2830 DATA FF , FF . C3, C3 . C3. ff, f F . O 

0 

2840 DATA B\ 10. 38, 38, 7C. FE, FE. 6C 

2850 DATA 0.0.18,13.0,0.0,0 

2860 DATA 42', 7E, 42, 42. 42. 7E, 42, 4 

2870 DATA. 8, 1 0, 38, 38, DC, FE, FE. 6C 

2880 DATA 38,34.38,10.38.54,38,6 
C 

2890 DATA 1C. 2C, 1C, 8, 1C, 2A. 1C, 36 

2900 DATA 38,BA,92,7C. 10, 38, 44, C 

2910 DATA 18, 3(2,66,42.60,66, FF.F 

2920 RETURN 
2930 



2940 



2960 INTERVALOFF: FUTSPRITE0. (X.Y 
> ,4,4: GOSUB3240: FOR Q=0 Tü 1000: 
NEXT: SCREEN 1 : LOCATE 7 ,'12! PRINT" 

GAME OVER " 
2970 PLAY"04V15C3CEEDDC3C3", "03V 
15CC3EEDDC3C3":FOR 1=0 TO 2500: N 
EXT: RUN 
2980 ' 

2990 ■ wmm OUITAVIDA. 

3000 * 

3010 INTERVALOFF: VI=VI-1 : G0SUB32 
40:LOCATE 20.1:PRINTVI 
3(320 PUTSPRITE0, (X.Y) .4,4: I FW=0 
THEN PLAY " V15S1 3L6407EO6E05EQ4E 
03E02C" 

3030 VV=0: RETURN 710 

3050 - mmm subrutina disparo 

3070 ZP=SP:Z=STICK(0>ORSTICKC1> : 
IF ZP=3 AND Z=0 THEN RETURN 
30B0 IF ZP=3 AND Z=3 THEN ZP=1 E 
LSE IF ZP=3 AND Z=7 THEN ZP=2 
3090 Q=121 

3100 IF ZP=1 THEN DX=+1 ELSE DX= 

3110 RR=VPEEK (CK) : VPOKECK, Q: CK=C 
K+DX:R=VPEEK!DO 

3120 IF (R>115 AND R<120) THEN F* 
LA Y " V 1 5L6408C " : R=R+ 1 : VPOKE CK , R : 
GOTO 3170 

3130 IF R=98 OR R=97 THEN PLAY"V 

15L64O2D":GOTO3170 

3140 IF R=120 THEN 3180 

3150 VPOKE CK-DX,RR:GOTO 3110 

3160 ' 




3170 VPOKECK-DX.RR: RETURN 

3180 VPOKE CK.32: VPOKECK-DX. RR: P 

LAY"V1508L64CG" 

3190 E=INT (RND < 1 ) *60B) +6272: VE=V 
F'EEK (E + 32) : IF VPEEK(E)=32 AND (V 
E=9B OR VE=97) THEN VPOKE E, 120 
ELSE 3190 
3200 RETURN 



LA 



I PARAPADEO DE LA PANTAL 



3240 FOR QQ=0 TO 101 VPOKE 8196,2 
55: VPOKE 8219. 255: FOR Q=0 TO 20: 
NEXT: VPOKE B196. 8<H1 1 : VPOKE 8219, 
&Hll:FOR Q=0 TO 20: NEXT: NEXTQQ: R 
ETURN 
3250 " 

3.260 ■ mam presentación 

3270 ' 

3280 COLOR 1, 15. 15: CLB: SCREEN 2 

3290 OPEN"GRP: "AS1:BEEP 

3300 DRAW " BM 1 40 , 20C3G7D 1 0R 1 0F 1 0M 

+ 10. +30F5R2F 1 01*1 + 5 , + 1 0D20M-- 5 , + 20M 

- 10 . +5L20H5L2G5L20M- 1 0 . -5M-5 , -20 

U20M+5, -10E10M+5, -35E10R10" 

3310 PAINT(133.38) .3,3 

3320 P*= " ND20R 1 0D 1 0L 1 0 " : E*= " NR 1 0 

D10NR10D1 0R 1 0 " : R*= " ND20R 1 0D 1 0L 1 0 

F10": A*="ND20R10D10NL10D10" : S$= " 

NR10D10R10D10L10" 

3330 DRAW"BM40,50C8XPS:BM55.55XE 
*;BM70. 4BXR*; BM85, 58XAS: BM100. 50 
XS*;" 

3340 DRAWBM50, 170" : COLOR 1:PRIN 
T#l. " (c) MAR 1988 JJC so-ft" 
3350 LINEÍ.45. 165) -(230, 183) ,6. P 
3360 FOR K=0 TO 20: I 1 NKEYf : NÉX 
T:D*=INPUT*<1) 

3370 PLAY "y 121 64o2b" : RETURN 



¡COMPLETA TU HEMEROTECA DE PROGRAMAS!! 




¡SI TE HACE FALTA ALGUN NUMERO DE IfflB PIDELO HOY MISMO! 



i BOLETIN DE PEDIDO 

Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre 

I gastos de envío, por lo que adjunto talón n ° del Banco/Caja 

| por el importe de ptas. al portador barrado. 

I NOMBRE Y APELLIDOS 

| CALLE N." CIUDAD 

DP PROVINCIA TEI 
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Programa ■ 



■Por David Soriano Fosas ■ 



SPIDER 



El juego tiene 16 puertas para 
abrir. Al principio deberás coger 
la llave situada en la puerta de la 
pantalla 6. La dificultat consiste 
en que se desconoce a qué 
pantalla pertenece. Deberás 
abrirlas todas. 



2 ' * SPIDER * 

3 ' id*********** 

10 ON STOP BOSUB 5690: STOP QN 
20 DEFINT L, I, X. Y, M.k.p 

presentación ■■■ 
40 KP=BASE <7) : KK=BASE<5> : PF-BASE 

50 SCREEN1 : KEYOFF: WIDTH29: C0L0R4 

.3.3:GOSUB350 

60 RESTORE 80 

70 FOR I=1T02:F0R 0=1T08: READA*: 
B* = B$+CHRS<VAL("?,H"+A*! ) :NEXT:SP 

80 DATA 00.80.C0.E0.F0,F8,FC,FE, 

00 , 0 1 , 03 , 07 , 0F , 1 F , 3F , 7F 

9|? '■■i dibujo pantalla mtm 

10" RESTORE 110:FORI=1TO22:PEADA 

*: L0CATE3, i . PRINTA*: NEXT 

110 DATA ccccccccccc ! XYZ 

120 DATA ccccccccccc ! C"\ 3 

130 DATA ccccccccccc! 

140 DATA . .He. .He. .H!c. .He. .He. . 

150 DATA . . Ic. . Ic. . I !c. . Ic. . Ic. . 
I 

170 DATA 

1 8'' 1 DATA c . Ok'kKKKKKKKKKKkKKKKK . M 
J DATA c. I .1 

3 DATA e . I . , M .1 

? DATA c . I . OKKKI .KKKKKKKK-.-I . I 
220 DATA c.I . ISüé laáá'65 .1 .1 
1Z0 DATA c. I . I .1.1 

240 DATA c.I • I .1 

250 DATA c. 1 J!- kkkkkkkkt kkkk.L .' I 
260 DATA c. I David Soriano . I 

280 DATA c. I 1988 . I 

290 DATA c.I .1 

300 DATA c I 

3 1 0 DATA c I 

320 DATA cJKKH.KkhKKKrV! t k/' kl Mm L 

3 2v> F'JT SPR ITE j^'J'?- ' ■ F '- IT 




. 2, (216.56) , 12,2 



370 FORI=1TQ25:READL:FDRO=0TO7:R 
ÉADS*: VFQk'E <L*B> +0+KP, VAL ( 
*>: NEXT: NEXT 
380 DATA 72, Bi 



390 DATA 73, 
.F0 

400 DATA 74 

410 DATA 75 
.00 

420 DATA 76, 

4-30 DATA 77 
, F0 

440 DATA 78 
,00 

450 DATA 79, 
,F0 

.28 

470 DATA 
.00 

480 DATA 88. 



FF.FE,FC,F8,F 
F0.F0.FI 
FF,FF,FF,FF,F 
FF.813,88,82,F 

00, 00, 00. 00, i 
3F, 1F,8F 



l,C0,B0 
í,F0,F0 
,08,98 



24 



510 DATA 91, 95, 91, 91, .91, 91, "i 

520 DATA 92, 34, 04, 04.08,30,(2 
. 1F 

530 DATA 93,53.186,89.03.03.1? 
•i DATA 33, 01, 01. 01, 01. 01. í 



1 DATI 



.7E.7E. 18. 18. 18. 18. ! 



53, 18. 18. ie. 18, 18. 18. 1 
8. 18 

610 DATA 134. 73. 7C. SE. 66. 66, 6E. 7 
C. 78 

620 DATA 175.7E.7E.66.7E,7C.6E,6 

630 VPOKE PP+5.26:VP0KE PF-.^. 19S 
: VPOKE PP+4 , 1 9 : VPOKE PP+11.49» VP 
ORE rr*S, ¿43 i VPOKE PP+7, 243t VPOt 



840 Y=Y-8:K=K-32 

3 PUT SPRITE 1. (X. Y) . 12, A 
860 RETURN 

880 IF VPEEK (K+64) =112 THEN SWAP 

I.B:SOTO 910 
B90 IF VPEEK <K+64><>104 DR VPEEK 

:+65)>119 THEN RETURN 
900 IF VPEEK (K+64) =97 THEN 910 
910 Y=Y+8:K=K+32 

3 PUT SPRITE 1. (X,Y).12.A 
3 RETURN 990 

3 ' Va^^B subrutina principal 

950 DN STICK ( 1 ) GDSUB 820,750,720 

. 750. 880. 750. 770, 750 

960 ON STICK (0) GOSUB 820.750.720 



i THEN GOSUB 12 
=97 AND VPEEK ' 



! THEN 1050 
GOSUB 1130 
IF VPEEK O: > 



•40 THEN C 



=24:K=KK+lli 
::F <l>».5tSD-tiM<6)»: 
■T=3:P0L=2:SC-=1 
V 501,?sGO5UP I 64 0: GOTO : 



WOTr* can/iar pantalla 

••SPPITE 1. (-20,-20) , 1 
TE 2. C-2&.-20) .1.1 
v=0 THEN FANT=F'4N T -4: 



1 1 00 

IEN C 'ANT-F 
THEN FAMT-PÍ 



50T0 



^20 IF VPEEK ( 



119 THEN RETUPM 



+ 2) 11? OF. VPEEK < 



1140 LOCATE 11. 17sF-RIÑT u i 

aaaaaar.saaaa" 

1150 GOTO 950 
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movimiento fant 

IT=4 OR PANT=B C 

10 

THEN L(l> = 
THEN L«l)=: 



!:GOTO 1210 

'0 IF L«l)=: 
.2:60T0 1210 
1200 . 
) +1 : R 
) ■>. B 

1210 RUT SRRITE 2, ( X (FANT, L < 1 ) ) , 
Y (PANT. L ( 1 ) ) ) . 15,3 
' 220 SH'R I TE ON 
230 RETURN 

.240 mmmm aürir puerta HMH 

IF STRIG(0>=0 AMD STRIG(l)- 
I THEN RETURN 

IF PANT=6 THEN 1350 
IF ROPANT THEN RETURN 
1230 PLAY"t25519o4crl6crl6o3ccrl 
6o4cr 16cr 16o5ccr 16o4cr 16cr 16o3cr 
16o4crl6o3cr 16o4cr 16o5cct 1201 4o4 



|í: LOCATE 3. 1:! 



1290 SC=SC+1 
TUSING"#*####";SC 

1300 VPOKE KK+197, 32: VPOKE KK+22 

310 SY=SY+1:M(PANT>=1 
1320 LOCATE B. PANT+3: PRIMT"aa" 
1330 F=0:R=6 
1340 RETURN 

1350 IF P=l THEN RETURN 
1360 L=0 

R=INT (RND (-TIME) *16)+1 
1380 L=L+1:IF L=30 THEN 1440 
1390 IF M(R>=1 THEN 1370 
1400 L=0 

1410 VPOKE KK+197. 34: VPOKE KK+22 
9.35 

1420 P=l : RETURN 

5 ' B^HI todas abiertas MtBM 
5 FOR 1 = 1 TO 16 
1450 IF M(I>=0 THEN L=0:GOTO 137 

i NEXT 

1-470 Bc-se-ri m&m \-, for i=i to 10 

: LOCATE 3,1:PRINT" ":PLAY"A 

": LOCATE 3. 1 : PRINTUSI NG : 

SC:PLAY"GE":NEXT 

14B0 P3=(LEFT*21)+(31-S7>-1 

1490 FOR 1 = 1 TO P3 

1500 BOSUB 5520 

1510 SC=SC+1000: LOCATE 3,1:PRINT 

US ING ; SC: BEEP 

1520 NEXT: LOCATE 31,19:F'RINT 



GOTO 5640 

1530 PUT BPRITE 1 . ( -20. -20) . 1 , 1 : 

PUT SPRITE 2, (-2,-2), 1, 1 

1 540 PL A Y " 1 25503CDEF6CD04EFGCCCC 

DE05FGGF04DCDDCDCDEDEDDD". ."t255G 

FGFGFGFGFGFDGDGDGDGDGDGDGDGFGFGF 

1550 IF SOHSC THEN HSOSC:LDCAT 

E 3,3:PRINTUSING"######"¡HSC 

1560 FOR 1=0 TO 17 

1570 LOCATE 10, I : PRINT"aaaaaaaaa 

aaaaaaaaaaaa":NEXT 

1580 FOR 1=1 TO 16lM<I)-0iNEXT 

1590 FOR 1=1 TO 3000: NEXT 

1600 X=96: Y=24: K=KK+108: PANT-6: A 

= 1:B=2:L(1)=3:R(1)=.5:3D=1:M(6) = 

1 1 SOI :S7=10: LEFT-3t P0L=2 • : ' 

M=0:P=0 

1610 LOCATE 1 1 , 19: F'RINT" ))))))) ) 

)))>)))))))))" 

1620 G OSUB 5 010: GOTO 1050 

1630 KMai sprites HBMUm 

1640 RESTORE 1670 

1650 FOR 1=1 TO 32: FOR 0=1 TO 8: 
READ A* (1,01 : NEXT: NEXT 
1660 ON SPRITE GOSUB 5700: SPRITE 
ON 

1670 DATA 00.00,00,00.00,00.04.0 
1680 DATA 2B.57,8F,0F,.17,23,44.8 
1690 DATA 00.00,00,00,00,00.20,4 
1700 DATA 2A.D1.E0,E8.D4.B2.41.B 
1710 DATA 00.00,00,00,00,00,04,2 
1720 DATA 51, 8B, 07, 17,26,41,82,0 
1730 DATA 00,00,00,00,00,00,20,5 
1740 DATA 84,EA,F1,F0,E8,C4,22,4 
1750 DATA 01,03,02,03.63,62,67.7 
1760 DATA 3F. 1F.07.0F. IF, 1F,3F,3 
1770 DATA C0.E0, A0,E3,63, A7.FE.F 
17B0 DATA F8,F0,F0,F8,F8,FC,FE.F 
1790 DATA FF,F5.FF.D5,FA.D5.-EA.F 
1800 DATA FF,55.AA.55.AA,50,A8,0 
1810 DATA 60,60,60,7F,7F,60,60,6 
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1820 DATA m 

1830 DATA 01 

1840 DATA 0( 

J DATA 0É 

J DATA 0É 

1870 DATA 18.24,4 

1880 DATA 10,10,1 

1890 DATA A2,Ai 

1900 DATA 00.01 

i DATA 02,01 

) DATA 10. Al 

1930 DATA A2.AI 

1940 DATA 26.69.É 

1950 DATA 0E 

1960 DATA E4,AE,Í 

1970 DATA 80,B0,£ 

) DATA BB,BB,I 

1 FOR I=1T012: 
:i)+CHR*(VALC 

2000 SPRITE*<1)= 

+S*<4) 
2010 SPRITE*<2>-! 

+SS<8) 
2020 SPRITE*<3>= 

1)+S*(12> 
2030 MI 



2,24, 18, 1 

10. íc.i 



3. A8. A8, 1 

»,AA,AA,f 
?.29,29,: 
*,0A,0E,fi 
i,AA,EA,í 
il,80,E0,l¡ 
),FB,FB,F 



2050 DATA c 
, 18. 1 



',98. 



;*<2>+i 

i(5)+S*(6)+S»(7 

;<9)+S$(10>+S*< 

:ion caracteres 

IsREAD S.L:FOR 
■O+KP, VÁLC'fcH" 

20, 104, 17. 105 



40.23.34.21,35.22.41.24.42.25,43 
.26.46.27.58.28. 128. 29. 129. 30. 13 
0.31. 122.32 

2060 LOCATE 1 1 , 19: PRINT" ))))))) ) 
>>)>>>>)>>)))" 

2070 LOCATE 1 1 . 21 : PRINT" I «i LOCAT 
E 4.11:PRINT"**":L0CATE 4.12:PRI 
NT" (. " : LOCATE 4, 13:PRINT". . " 




r OR 1=1 TO 16: FOR 0=0 Tü : 
P*(I,0) : NEXT: NEXT 
r 0R 1=1 TO 16: FOR 0=1 TO : 
X(I.O) . Y(I.O) : NEXT : NEXT 

:i20 DATA KVKyxvKyxvxvxvxyxyxy 

2130 DATA yxhisaaaaaaaaaaaaayx 

2140 DATA x y h 1 utiuiuauiix y 

.50 DATA yxhixyxyxyxyxyxyaayx 



DATA ; 

2190 DATA •> 

22i.i0 DATA > 

2210 DATA ynhiaaaaaaaavKy: 

2220 DATA xyhia¡ 

2230 DATA yxhia. 

2240 DATA xvhiaaaaxy: 
2250 DATA's 

2260 DATA xyhi; 

2270 DATA v; • yx y x y y yx y y. yx y;-. yx yx 
22B0 '"y ""2"""" 

2290 DATA x yxyxyx yx yx yxyxyx yxy 

2300 DATA y x v ; t y x v x v x v y v x y x yxy:: 

2310 DATA xyaahiaazaaaaaaaaaxy 

2320 DATA vxaahiaaaaaaí+aaaayx 

2340 DATA a 

2350 DATA y, 

2360 DATA y 

2370 DATA xyaahi aaaaaaaaaaapqa 

2380 DATA yx yxhi yx yxyx ypqxyxyx 

2390 DATA xyzahiaaaaaaapqazaxy 

2400 DATA yxaahiaaaaaaapqaaayx 

2410 DATA xyaahiaaapqaapqaaaxy 

2420 DATA yxaahi aaapqaapqaaayx 

2430 DATA xyaahiaaapqaapqaaaxy 

2440 DATA yx vxyxyxypqxypqxyxyx 
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Programa ■ 



DATA xyxyx' 
DATA yxyxy> 
DATA xyaax' 
DATA yxaay: 
DATA aaaax' 
DATA aaaay: 
DATA ¡< 
DATA í 
DATA c 
DATA y 

DATA xyaaapqaaaza. 



2520 
2530 
2540 
2550 
2560 
2570 

2580 DATA x yaaapqaaai 
2590 
2600 



2670 
2680 
2690 



2750 
2760 
2770 
2780 
2790 
2800 
28! .¡I 



i DATA xyxyaTHEaSPIDERaxyxy 
I DATA yxyxyxyxyxyxyxyxyxyx 
I DATA xyhiaaaazazaazaaaaxy 
i DATA yahié 



x yx yx pqyx yaaaaz aaax y 
aaaaapqaaaaaxyaaaaxy 



DATA > 
DATA i 
DATA > 
DATA i 
) DATA > 
J DATA i 
! DATA > 
I DATA \ 
í DATA : 

I DATA > 
í DATA í 
' DATA > 



29?c r 

2960 ' 
2970 I 

pon,;, 

3!? !. i? 



DATA yxysaz = a?p 

DATA aaaaaaaaapi 

DATA aaaaaaaaap. 

DOTA .-y, yxy: 



5 DATA 
} DATA 
3 DATA 
5 DATA 
3 DATA ^ 
J DATA ;■ 
5 DATA ,y 
3 DATA i, 
3 DATA v 



v a&aaaa* . +ahi aapqyx 
aaaaaaaaí. . ahiaapqxy 
aaaaapqa. . . ah i aapqyx 

x yx yx p qy x yx yh i x yx y x y 



yxyxv'xy; 



3140 DATA ; 
3150 DATA v 
3160 DATA aaaaaaaaaaaaz aah i ' 
3170 DATA aaaaaáaaaaaiaaah:. 
3180 DATA w yn pqyxpqaaaaaah i > 
3190 DATA yxapqaapqaaaaaahi> 
3203 DATA xyapqaapqaaaaaahi i 
3210 DATA yxapqaapqaaaaaahid 
3220 DATA xyapqáaxyxypqaahi i 
3230 DATA y x apqaaaz aapqaah i i 
3240 DATA syacqaaaaaapqaahii 
32=0 DATA •/;•• apQaaaaaapqaahi í 
3260 DATA xyapqaaaaaapqaahi ¿ 
DATA yx apqaaaaaapqaahi « 
3280 DATA xyapqaaaaaapqaahi « 



5 DATA xyhi 

3 DATA yxhiapqaaaaf+a; 

5 DATA xyhiapqaaaa<.a, 

i DATA yahiypqaaaa. .a, 

3 DATA x yh i ¡í aaaapqx y a. 

3 DATA y;:hi yaaaapqyxa, 

3 DATA ::yhlxyxyxyxyxv¡ 



3400 DATA , 



3 DATA > 
3 DATA 
5 DATA :< 
3 DATA v 
3 DATA x 
3 DATA v 
3 DATA xyaaaaaazaaaaahiaaxy 

3 DATA xyaaaaaaaaaaaahiaaíy 
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3570 DATA yxaaaaaaaaaaaahiaaaa 

3%8E» DATA xyaaaaaaaapqáahlaaaa 

3590 DATA yx aaaayx yx pqyx yx yx yx 

3600 DATA x yaaaax yaapqaaa*+ax y 

3610 DATA yx aaaayx aapqaaaí.ayx 

3620 DATA x yaaaax y aapqaaa . . ax y 

3630 DATA yxyxyx vx vxpqyxyxyxyx 

3640 '"""10" 

3650 DATA xyxyxpqyxyxyhixyxyxy 

¡>60 DATA vfyaapqaazaahiazaayx 

-67-? DATA syaaapqaaaaahiaaaasy 

3690 DATA /aaapqaaaaahi aaaaaa 

DATA yx yaapqaaaaah i aaaaaa 

3710 DhTA xyaaapqaaaaahixyxyxy 

37212 DATA yxvaapqaaaaahiaxyxyx 

3730 DATA x y aaap q aaaaah i aaz ax y 

' '10 DATA aaaaapqaaaaah i aaaayx 

3750 DATA aaaaapqaaaaah i aaaa» y 

3760 DATA yxyxypqaaaaahi aaaayx 



7780 DATA - aapqal.aahiaí 



7780 


DATA 




3790 




~vaaaoQ* ( aaí'ataX 


3800 


DATA 




38 1 0 






3820 


DATA 


x y x yx yx yx y x pqy x vx yx y 


3830 


DATA 


yxyaaaaahiapqaaaaayx 


3840 


DA, 3 A 


xvaaaaaahiapqaaaaaxy 


3850 


DATA 




3860 


DAT A 




387 0 






3880 


DATA 


x yh i aaaax vx y¡¡ y x ypqx y 


3890 


DATA 


yahiaaaaal+aaaaapqyií 


3900 


DATA 


Kahiaaaaa < . aaaaapqxy 


3910 


DA T A 


yahiaapqa. . apqaapqyx 






xahiaapqxyxypqaapqxy 


3 93 0 


DATA 


yahi aapgaxyzpqaapqyx 


3940 


DATA 


xahiaapqayxapqaapqxy 


3^70 


DATA 


yahiaapqaxyapqaapqyx 




DATA 


xahiaapqavxapqaapqxy 


3870 


DATA 




7980 
3™ 


DATA 


x y x vx h i y x yx yx vx yaax y 


A 000 


DATA 


yx aaahiaaaaahiysaax y 


4011? 


DATA 


x y aaah i aaaaah i x vaax y 


4020 
4030 


DATA 




4040 


DATA 




4050 


DATC, 




4060 


DATA 




4070 


DATA 


xyaapqaaaaaaaaxyaayx 


4080 


DATA 


y x aapqaaaaaaaay x aax y 


4090 


DATA 


xyaapqaaaaaaaaxyaayx 


4100 


DA r A 


y;; yxyxyxyxpqyxyx aax y 


4110 


DATA 




4120 


DATA 


Vüaaaaaaaapqaayxaaüy 


4130 


DATA 


xyaaaaaaaapqaaxyaayx 


4 140 

4150 


DATA 


yx y x yx yx yx pq yx yx aax y 








4160 DATA x yx ypqx yx ypqx yxyxyx y 

4170 DATA vpqxpqypqapqy*+zpqyx 

4180 DATA xpqapqxpqapqx (.apqxy 

4190 DATA ypqapqypqxyxy. . apqyx 

4200 DATA xpqyxyxpqypqxvxypqxy 

4210 DATA ypqxpqapqxpqapqxpqyx 

4220 DATA xpqypqapqypqapqapqxy 

43 2 0 DATA ypqxpqyxyxyxypqapqyx 

4240 DATA ipqypqxpqapqxpqypqxy 

4250 DA T A ypqapqypqapqypqxpqyx 

4260 DATA xpqapqxpqypqx vxypqxy 

4273 DATA ypqxpqypqxpqypqapqyx 

42S0 DATA xpqvpqapqypqxpqapqxy 

4290 DATA ypqxpqapqxpqapqxpqaa 

4300 DATA xpqypqxpqypqapqypqaa 

4310 DATA /xyxyxyxyxyxyxyxyxyx 

4320 '•"""»" "14"*' 

4330 DATA x vxyxyx yx yx yhi xyx yxy 

4340 DATA yxh i h i hi h i hi hi hi h i yx 

4350 DATA :;yaaaaaaaaaahiaaaazy 

4370 DATA x yaaaax yx y x yh i aaaax y 

4390 DATA yxaaaaaaa*+ahi aaaayx 

4390 DATA x yaaaaaaa ( . ahi aaaax y 

4400 DATA y xaaaaaaa. .ahí aaaayx 

4410 DATA xyaaaaaaaxyyhi aaaaxy 

4420 DATA yxaaaaaaahi ahi aaaayx 

4430 DATA x yaaaaaaah i ah i aaaaxy 

4440 DATA yxaaaaaaahi xyxyxyxyx 

4450 DATA x yaaaaaaah i aaaaaaax y 

4460 DATA aaaaaaaaahi aaaaaaaaai 

4470 DATA aaaaaaaaah i aaaaaaaaa 

4480 DATA yxyxyxyxyxyxyxyxyxyx 

4490 " " " ' ' ' 15" ' ' ** ' ' ' " " 

4500 DATA xyxyxyxyxyxyxyxypqxy 

4510 DATA yxazazazazazazaapqyx 

4540 DATA x yaaaax yyyyyyyyypqx y 

4550 DATA y x a aaaax yyy yyaaaaaax 
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Prograrr 



4560 DATA 
4570 DATA 
4580 DATA 
4590 DATA 
4600 DATA 
4610 DATA % 

4630 DATA s 
4640 DATA e 
4650 DATA x 
4660 

4670 DATA K 



.xvyvliixyKyxyx 
yvvahiaaaaasy 
.xyyyhiaaaaayx 
yvvahi aa*+asy 



".:v:;ypq;:y::yaay>; 



4680 
4690 

4700 DATA y . 
4710 DATA xyaaahiaaaoq::\ 
4720 DATA y 
4730 DATA x 
4740 DATA a 
4750 DATA a 
4760 DATA v 
4770 DATA iaapqaaaaaaaaaaayxy 
4780 DATA yaapgaaaaaaaaaxy»y 
4790 DATA xaapqaaaaaaaaayxy 
4800 DATA yaapqaaaaaaa:iy;:y 
4810 DATA : 
4820 DATA x 
4830 

4840 DATA 
44.72 
04. 136 



4870 DATA 



4900 DATA 



12. 128. 112. 136, 
12. 160. 112. 16B 
12. 192. 112 
6, 112,56, 120.56 



40. : .48. 160.56 



4930 DATA 3 



0 , 1 84 



5010 



4940 DATA 160.40, 
36.40,136.48. 
2. 144,72, 152. 
4950 DATA 152.80. 
76,80. 184.80 
0.216,80,224 
4960 DATA 21. 

216.56 
0.216.38.216 
4970 DATA 12! 
. 120.72, 



6, 120, 
4980 DATA 
92,32, 192. 
4,200.64.2 
4990 DATA 
28,64. 136, 
0. 144, B8, 1 
5000 RETURN 



216, 



120, 
20. 112 
76.24 



■ pantall a prini 



ipal | 



5020 FÜR 1=776 TO 783: VPOKE I+KP 
,0:NEXT 

5030 VPOKE PP+4.B1 
5040 VPOKE PP+6,241 
5050 VPOKE PP+7.241 
5060 VPOKE PP+13, 161 
5070 VPOKE PP+14.65 
5080 VPOKE PP+15.22 
5090 VPOKE PP+8,49 
5100 VPOKE FP+9.49 

VPOKE PP+2 1.209 



/POKE F 



30 VPOKE PP+2. 209 
5140 VPOKE PP+10.49 
5150 VPOKE PP+11 , 49 
5160 VPOKE PP+5. 161 
5170 VPOKE PP+16.209 
5180 RESTORE 5210: FDR 1=0 TO 21: 
READ L*: LOCATE 2, I : PRINTL*: NEXT 
5190 FOR- 1=208 TO 240 STEP 16: PO 
L=POL+l:PUT SPRITE POL. ( I , 136) , : 
2, 1:NEXT 

5200 IFHBC< > 0THENLÜCATE 1 1 , 21 : PRI 
NT": " 

5210 DATA aaSCORE 
5220 DATA a&aBSAaa 
523» DATA HI-BCORE 
5240 DATA a 
5250 DATA a 1 

5260 DATA aa i — i 2 i 

5270 DATA aa ! I 3 ! 



5280 DATA aa I I 4 I PLAYER | 

5290 DATA aa L — ' 5 I I 

5300 DATA aaaaaaaia I I 
5310 DATA aaaaaaa7a I READY I 
5320 DATA aaaaaaaSa I I 

5330 DATA aaaaaaa9aaaa 1 1 

53-40 DATA aa<iaaal0a.<iaa 

5350 DATA aaaaaallaaaa LEVEL 

5360 DATA aaaaaal2aaaa i , 1 



5370 DATA 



5460 LV=VAL ( INPUT* ( 1 ) ) 

5470 IF LVOl AND LVO-2 AND LVO 

3 THEN 5460 

5480 LOCATE 23. IB: PRINTLV 

5490 IF LV«1 THEN LV=35: LOCATE 1 

é>, 16iPRINT'>" 

5500 IF LV=2 THEN LV=25: LOCATE 
16;PRINT'>" 

10 IF LV=3 THEN LV= 10: LOCATE 2 



listados 



55 30 ¿FRITE CFF ; ¿-^3''+ l :, LOCAT E ' 
7.19:PRINT"a":IF S7=31 THEN 5550 
5540 RETURN 

5550 ■■■ acabar energía ■■■ 



5580 IF LEFT=1 THEN PUT SPRITE 4 
. (-20,-20) ..1.1 

5390 IF L.EFT-0 THEN PUT SPRITE 5 

5600 IF LEFT=-1 THEN PLAY"tl20O3 

CDDBDFFDDCDFDF": 60T0 5640 

5610 LOCATE 1 1 , 1 9: PRINT" ))))))) ) 

5620 S7=10:EM=0 
5630 RETURN 
5640 LOCATE 



7.B:F 



INT"; 



5650 LOCATE 
Ra" 

5660 LOCATE 

5670 FOR 1=1 
XT 



7 , 9 : PR I NT " a6 AME aO VE 
.7, 10:PRINT"aaaaaaaa 
TO 100:A*=INKEY*:NE 



5680 GOTO 1530 
5690 SCREEN 0: END 

5700 FKS=FKS+1: IF FKS=LV THEN FK 
S=0:GOSUB 5520 
5710 RETURN 




Programa 



Test de listados ■ 



■249 4470 

•250 4480 -23B 

■249 4490 - 51 

■222 4300 --22: 

■ 58 4510 - a: 

•159 4520 




«Mr 



ai 



■Por Alfonso Gómez Gutiérrez ■ 



Efectos 



sonoros =*• 



Alfonso Gómez 



I FOR 1=40 TQ 50 

I SOUND 8. 15: SOUND 0, I 

3 NEXT: FOR V-l TO 10: NEXT 

3 A=A+1:IF A=10 THEN 190 



170 6DT0 130 



5 FOR 1=30 TD 60 

i SOUND 8. 15: SOUND 0, I 

3 NEXT : FOR 1 = 1 TO 30 : NEXT 

:l SOUND 0.0 

3 D=D+1:IF D=10 THEN 260 
3 BOTO 190 

3 FOR 1=60 TO 40 STEF-.8 

) SOUND 8.15: SOUND 0, I 

3 NEXT I 

3 SOUND 0,0 

3 FOR H=l TO 150: NEXT 

3 V=V+1:IF V=2 THEN 330 

3 60T0 260 

3 FOR 1=1 TO 50: NEXT 



I D=0 

I FOR 1=30 TO 60 

l SOUND 8, 15: SOUND 0. I 

I NEXT: FOR 1=1 TO 30: NEXT 

I SOUND 0,0 

1 D=D+1: IF D=10 THEN 420 
l GOTO 360 




FOR 1=40 TO 50 
SOUND 8. 15: SOUND 0, I 
NEXT: FOR Y=l TO 10: NEXT 
A=A+1:1F A=10 THEN 490 
GOTO 440 



:l FOR 1=60 TO 40 STEP-.8 

3 SOUND 8. 15: SOUND 0. I 

3 NEXT.I 

3 SOUND 0.0 

3 FOR H=l TO -150: NEXT 

3 V=V+1: IF V=2 THEN 580 

3 GOTO 510 

3 FOR 1=1 TO 50: NEXT 



590 GOTO 110 



OLAS 

por 

Alfonso Gómez 



34 





* (Almuñecar) * 


70 


* para: * 


30 


* MSX-CLUB * 


90 
1 00 


'********************* 


1 10 
120 
130 
140 


FOR P=6 TO 13: READ J 
SOUND P,J 
NEXT P 
DATA 30 


150 


DATA 199 


160 


DATA 16, 16, 16 


170 


DATA 138,2 


180 


DATA 14 



**************; 



9 FOR 1=6 TO 13 

3 READ J 

J SOUND I.J 

9 NEXT I 

i DATA 12 

ü DATA 129 

9 DATA 16, 16, 16 

í DATA 128.72 

3 DATA 14 




Alfonso Gómez 

(Almuñecar) 
para: 
MSX-CLUB 



20 SOUNDB, 16:S0UND9, 16: SOUND 10, 

30 S0UND7,24B:S0UND6. 15 
40 SOUND 12, 2 
50 S0UND13, 10 



OVNI 



,»•♦***»*>»:**«»****• 
OVNI 



I FOR 1=1 TO 200 STEP 6 

í FOR E=200 TO 1 STEP 6 

I SOUND 9, 15: SOUND 8,15: SOUND 

: : SOUND 0,E 

I NEXT: NEXT 

:l SOUND 0.0 

> GOTO 100 



* (Almuñecar) * 

* para: * 

* MSX-CLUB * 

* * 
********************** 
FOR 1=0 TO 255 STEP 10 
SOUND 8. 15: SOUND 0, I 



HELICOPTERO 



:! FOR 1 = 1 T013: READ S 
5 SOUND I.S 
) NEXT I 

3 DATA 0,0.0,0,24,0,22,32,2.1 



JOYSTICK EN MANO ■ 



■ Por Carlos Mesa ■ 



MODIFICACIÓN DEL 
TEST DE LISTADOS 



SVI-738 y el pro { 
«Declaración de la renta del r 
38 de MSX-EXTRA, tal 
hace que me surja sólo la pantalla 
de la línea 110. Después se me inicializa 
como si acabara de conectarlo. 

Consultado el n.° 16-17 de MSX-CLUB, 
pág. 12, dedi 



a la pantalla con 80 líneas 




18 DEFINTfl- Z s DEFUSR=lrHCÍB»: C=l s 5CREEN 
0: WIDTH 48;COL0R 4,15 
28 FOR 1--WMI TO 5.H.C01C: READ MsPOKE 
X . VAL ( 'IH " *M I : N=N+VAL I 'W " *M 1 : NEJT : 
IFN03889 T4EN PRINT-ERRD» EN DATAS" : E 
ND 

38 A=USR!8) 



tí A$iC)="CARACTERES EN MODO FLASH DEL 
IX SPECTRUH'¡60SIJB 158 
*# A1'.C!='CFEATED BV PEDRO MARQUEZ 31» 
ENE!":G0SUB 138 

B8 A«!C)="FQR THE ».SX SYSTEM- : GOSUB 15 



118 LOCATE Í.Í:PR:NTA*!1!¡LÜCA T E = 
RINT A*(2):L0CATE 9.10;PR:nt ai::;:=GF 
W TO 388Ü1EXT X 

121 LOCATE MsPRIHT C»!1!:LDCS'E C,4¡ 
PRI«ra<2) ¡LOCATE =.;?:PF!T í»'!):^ 
J*i TO 388¡NEXT X:60TD 118 
138 ' 



168 DATA F3.21.8.3.I1.F3.:. 



IA CREADORA DEL FLASH 
0R5 «C888 



37 



Video-Pokes 



PHANTOMAS 2 


ZANAC 




-pkhantomas, el más famoso ladrón de 


"f""V ólo g° de Zanac: «Unidad de com- 






penetra de lleno dentro de la historia del 






software, por ser un número uno y por la 
gran adicción creada a su alrededor. 
Por otra parte, cuando este arcade era del 


sobre las campañas de conquista: hambre 
vación en las ciudades conquistadas, capa- 




dominio público, parece ser que una com- 


cidad de cidturizar las ciudades tomadas, 
posibilidad de construir obras públicas dis- 


res de energía. La variedad es sorprenden- 
ce: surtidores de flechas, surtidores de rayos 

bolas de energía y trampas mortales. Aun- 
que no todo es maligno en este castillo; al 


adictos a este tipo de aventuras. 
Zanac, todo hay que reconocerlo, resulta 

habilfdad ^"reflejresVúnlc^ec^enrí 
Pero dada la complejidad de pantallas, y la 




parecer también hay ayudas de las que 
sacar partido: vagonetas, objetos, 


transportación hasta algunas de ellas, se 
hace engorroso llegar hasta las pantallas 
finales del mismo. Pues bien, para no que- 
darse a medias, este mes presentamos su 


el desarrollo del juego. De esta manera, 
En contrapartida, aquí Átá un cargador 


La misión encomendada, con todos estos 
inconvenientes, puede resultar ardua y di- 

dad total, con la que poder finalizar el 


correspondiente cargador de vidas infini- 
tas. Veremos si de esta forma se es capaz 
de llegar hasta el finaL 
10 COLOR 1,15,15 
20 SCREEN0: KEY 0FF:NIDTH Ai 


especial con variedad de detalles: soldados 
y comida, caballos e ingenieros, catapultas 
y dinero... Eso sí, no excedas de 255 en la 
cantidad numérica de cada apartado. 
10 SCREEN0:COLOR 1,15,15:KEY OFF: HIÜTH 
40:CLEAR 200,«HBA0O:PRINT'CARGADOR PA 




30 PRINT'iCUANTAS VIDAS DUIERES'; : INPU 

40 COLOR 15.1.1: SCREEN 2 

50 DEFUSR=«H41:A=USRI01 

M DEFUSR=IH44:A=USR(01 

70 BLOAD'CAS : ■ : DEFUSRHHC0O0: A«='ZANAC 

-+STR*(N):I*=USR(A$) 


RA LA CONQUISTA DEL IMPERIO': PRINT STR 

lN6.(39,"«"):A,«"SsNn':L0CATE 0,4:PRIN 

T-cDINERO INFINITO (S/N)?'¡ 

20 B«=INPUT$(1):PRINTB«¡:A=INSTR(A«,B« 

>:IFA=0 THEN 20 

30 IFA>2THEN Mlr»l 

A0 PRINT:PRINT:N=2:B«='¿CUANT0S SOLDAD 




B0 BLOAD'CAS:' 
M POKE 33314!,» 


OS V C0HIDA":60SUB 60:B«='¿CUANTD DIÑE 

ro-'.sosub utwamm CABALLOS e I 




1H 0EFUSR=34775!:D=USR(II 
110 BLOAD'CAS: ',R 


N6ENIEROS':60SUB 60:B«='¿CUANTAS CATAP 
ULTAS SE PUEDEN PONER": GOSUB 60 

UB 60:GOTO 90 




ROMA T A 

CONQUISTA 
DEL IMPERIO 


68 PRINT: PRINT B«; 

70 INPUT A(N):IF AINI >255 THEN PRINT: 
PRINT'HENOS DE 255':60TQ 70 
80 N=N+1 : PRINT: RETURN 


11 COLOR 1,15,15:CLS:KEY OFF 

20 PRINT'tüUIERES ENERBIA INFINITA 18/ 

N)-¡:INPUT E«:E=(E«="S'ME«=VI 

30 PRINT-¿OUIERES INMUNIDAD TOTAL IS/N 

1'üINPUT I«iI=(I»=-S")*(I«=-s-) 

40 BLOAD'CAS: R: BLOñD'CAS: * , Ri BLDAD'C 


90 BLOAD'CAS: ':DEFUSR*«HD086¡X*USRI0)¡ 
BLOAD'CAS: ' : DEFUSR'.HDABE: X'USR 10 1 : BLO 
AD"CAS:':DEFUSR=«HDA69:](=USR(0>:6LOAD" 
CAS:' 


Teniendo de Roma, habrás de con 
■■^quistar todas las tierras del Imperio 


100 DEFUSR=«HDA7B:X=USRI01 ¡BLOAD'CAS:' 
: DEFUSR=IH97 1 B: A= 1301 A 1 1 1 ¡POKE 42867 ! , 


51 IF E THEN POKE &HA500.1HC9 

60 IF I THEN POKE IHA53B,4HC9:P0KE «HA 

57B,4HC?:P0KE «HA56B.SHC9 

70 DEFUSR=«HB598¡A=USR(0) 


ra que consta de 598 pantallas diferentes, 
teflejan toda la geografía de Europa Occi- 
dental y norte de África. 

vés de C 400dudades. a " * C eaU¡ " 


A:P0KE 45552!, A:P0KE 47410!, AlPOKE 450 

47!,AI2):P0KE 45063!, AI3)¡P0KE 43055!, 

A(4I:P0KE 49980!, A(5) 

110 POKE 50284!,0:POKE 502B5!,62:POKE 

3i286!,A(6);MJSRIi) 



DE MAILING 



¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MAILING PUEDES ADQUIRIR 




| □ Tutor Basic Ptas. 3.500- 
I □ SweetAcorn Ptas. 5.200- 

I □ BarnStormer Ptas. 5.200- □ Chock'n Pop Ptas. 5.200- 
I Gastos de envío por cada producto 100,- pts. Remito talón bancario de 
Transfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - C 





□ Adaptador Softcard Ras. 2.850,- 

□ Shark Hunter Ptas. 5.200- 

□ Le Mans 2 Ras. 5.200- 



